home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 71
/
MOBICLIC 71.ISO
/
mac
/
DATA
/
COMMUN
/
temp0001
/
00003_Script_gestion de la navigation
< prev
next >
Wrap
Text File
|
2004-12-05
|
10KB
|
315 lines
-- gestion de la navigation
global chemin,pathAide,menuMsg,validMBG,validMHD,volumeOn,gL_Zap,pisteAideRub,aideRub
global menusActifs, menuOuvert, gFlag_special_EKR
-- chemin : chemin d'accΦs complet au niveau du sommaire
-- pathAide : nom complet du film appelant l'aide
-- menuMsg : nom du message retournΘ par les menus de Mobiclic
-- validMBG : liste de l'activitΘ des items du menu Θquerre bleue
-- validMHD : liste de l'activitΘ des items du menu Θquerre verte
-- gL_Zap[18] : controle l'activation des raccourcis clavier
-- navigation entre films
on acces
set n = the paramCount
if n > 0 then
initFilm
nom = chemin
if n > 1 then
-- chemin d'accΦs a ΘtΘ envoyΘ sous forme de plusieurs paramΦtres
repeat with i=1 to n
if the machineType = 256 then
nom = nom & param(i) & "\"
else
nom = nom & param(i) & ":"
end if
end repeat
delete char(nom.chars.count) of nom
else
-- chemin d'accΦs a ΘtΘ envoyΘ sous forme d'un seul paramΦtre
if offset(":",param(1)) = 0 and offset("\",param(1)) = 0 then
-- seulement un nom de fichier a ΘtΘ envoyΘ
nom = param(1)
else
-- un chemin d'accΦs a ΘtΘ envoyΘ
n = param(1)
nom = nom & nomDos(n)
end if
end if
put "AccΦs au film : " & nom
nom = nom & ".dir"
put nom
go to movie nom
niveauSon
end if
end acces
on initFilm
coupeSon 2,3,4
menusActifs=1
menuOuvert = 0
end initFilm
-- retour au sommaire
on sommaire
quitterAtlas
coupeSon 2,3,4
if gFlag_special_EKR <> VOID then-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
local_sommaire()
else
go to movie chemin & "sommaire"
put "Ouverture du sommaire α " & the time
niveauSon
end if
end sommaire
-----------------------------------------
-- accΦs aide gΘnΘrale de Mobiclic
on aideMob
if gFlag_special_EKR <> VOID then-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
local_aideMob()
exit
end if
pathAide = the pathName & the movieName
-- acces("communs","aide")
go movie "@//COMMUNS/AIDE"
end aideMob
-----------------------------------------
on retourAide
updateStage
coupeSon 2,3
menusActifs=1
menuOuvert = 0
case(pathaide) of
"SOMMAIRE":
go frame "SOMMAIRE" of movie "SOMMAIRE"
otherwise:
go to movie pathAide
end case
end retourAide
-------------------------------------
-- quitter mobiclic
on quitte
global gNo_Mobi
quitterAtlas
if gFlag_special_EKR <> VOID then-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
local_quit()
exit
end if
if the optionDown=1 then
quit
else
if gNo_Mobi = VOID then gNo_Mobi = value(member("RUBRIQUES").line[8])
case(gNo_Mobi) of
54:
go movie chemin&"LASTGAME"
otherwise:
acces("communs","generic")
end case
end if
end quitte
---------------------------------
-- gestion de la navigation par raccourcis clavier
on keyDown
global gL_localTEXTES, gL_mobidata,gL_RetourAide
if the activewindow <> the stage then -- les raccourcis claviers sont inopΘrants pour les MIAW
tell the activeWindow
pass----------------------------------- elles les passent α la scΦne
exit
end tell
end if
if gL_Zap[18]= -1 then exit--------------------- les raccourcis claviers sont inopΘrants si pour ce movie
k = the keyCode------------------- les raccourcis sont dΘsactivΘs
case(lien()) of
"\":
nomCh="raccourcisPC"
":":
nomCh="raccourcis"
end case
repeat with i = 1 to member(nomCh).lines.count
if k = value(member(nomCh).line[i].word[1]) then
menuMsg = member(nomCh).line[i].word[2]
exit repeat
end if
end repeat
if the pauseState = 1 and menuMsg <> "stop" then exit
case menuMsg of
"suite":
if localparam("NAV","ZNEXT") > -1 then ZAP_NAVIG("NOP",1)
"retour":
if localparam("NAV","ZPREV") > -1 then ZAP_NAVIG("NOP",2)
"debut":
if localparam("NAV","ZBEGIN") > -1 then ZAP_NAVIG("NOP",3)
"revoir":
if localparam("NAV","ZAGAIN") > -1 then ZAP_NAVIG("NOP",4)
"stop":
if localparam("NAV","ZPAUSE") > -1 then
case(gL_Zap[10]) of
0:
PAUSE()
gL_Zap[10] = 1
1:
go the frame-- cela dΘbloque la pause
gL_Zap[10] = 0
end case
end if
"sommaire":
goOtherRub("RATOCLIC",0)
"volume":
ZAP_MISC(4)
"SOUSTITRE":
show_COMMENTS()
"MUSIKONOFF":
case(gL_Zap[17]) of
1: --la piste musique marche,onla dΘsactive
gL_Zap[16][1] = -gL_Zap[16][1]
gL_Zap[17] = -1
tell gL_Zap[1]
sprite(gL_Zap[19][4]).member = "BTON_MUSIK_ON"
end tell
tell the stage
sound(1).volume = gL_Zap[16][1]
end tell
-1:--la piste musique est dΘsactivΘe, on la rΘactive
gL_Zap[16][1] = -gL_Zap[16][1]
gL_Zap[17] = 1
tell gL_Zap[1]
sprite(gL_Zap[19][4]).member = "BTON_MUSIK_OFF"
end tell
tell the stage
sound(1).volume = gL_Zap[16][1]
end tell
end case
"FOTOECRAN":
--
"IMPRIME":
tell the stage
imprime()
end tell
"QUITTE":
tell the stage
go movie "@//COMMUN/GENERIC"
end tell
"AideMob":--aide Zapette
if zabrev() = "AIDE" then exit
tell the stage
gL_RetourAide = [string(zrub()),zNoSRub()]
goOtherRub("AIDE",0)--ainsi on a un retour automatique
end tell
"aideRub":--aideEcran
if localParam("TOOLS", 1) = -1 then exit
tell the stage
if voidP(gL_localTEXTES) then init_localTEXTES
if gL_localTEXTES = [] then
member("AIDE_RUB").text = EMPTY
else
temp = gL_localTEXTES.getaProp("_AIDE")
member("AIDE_RUB").text = member(COMMENT_TANK()).char[temp[1]..temp[2]]
end if
member("AIDE_RUB").scrollTop = 0
end tell
case(gL_Zap[2]) of
0:-- la zapette n'a jamais ΘtΘ ouverte
show_zapette()
tell gL_Zap[1]
go "AIDE_"&gimme2digits(zfamily())
end tell
1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est visible
tell gL_Zap[1]
go "AIDE_"&gimme2digits(zfamily())
end tell
-1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est invisible
gL_Zap[1].open()
end case
tell gL_Zap[1]
go "AIDE_"&gimme2digits(zfamily())
end tell
"dico":--dictionnaire
if localParam("TOOLS", 2) = -1 then exit
tell the stage
if voidP(gL_localTEXTES) then init_localTEXTES
if gL_localTEXTES = [] then
member("DICO").text = EMPTY
else
temp = gL_localTEXTES.getaProp("_DICO")
member("DICO").text = member(COMMENT_TANK()).char[temp[1]..temp[2]]
end if
member("DICO").scrollTop = 0
end tell
case(gL_Zap[2]) of
0:-- la zapette n'a jamais ΘtΘ ouverte
show_zapette()
tell gL_Zap[1]
go "DICO_"&gimme2digits(zfamily())
end tell
1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est visible
tell gL_Zap[1]
go "DICO_"&gimme2digits(zfamily())
end tell
-1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est invisible
gL_Zap[1].open()
end case
tell gL_Zap[1]
go "DICO_"&gimme2digits(zfamily())
end tell
"info":--infos
if localParam("TOOLS", 3) = -1 then exit
tell the stage
if voidP(gL_localTEXTES) then init_localTEXTES
if gL_localTEXTES = [] then
member("INFO_").text = EMPTY
else
temp = gL_localTEXTES.getaProp("_INFO")
member("INFO_").text = member(COMMENT_TANK()).char[temp[1]..temp[2]]
end if
member("INFO_").scrollTop = 0
end tell
case(gL_Zap[2]) of
0:-- la zapette n'a jamais ΘtΘ ouverte
show_zapette()
tell gL_Zap[1]
go "INFO"&gimme2digits(zfamily())
end tell
1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est visible
tell gL_Zap[1]
go "INFO"&gimme2digits(zfamily())
end tell
-1:-- la zapette a dΘjΘ ΘtΘ ouverte et elle est invisible
gL_Zap[1].open()
end case
tell gL_Zap[1]
go "INFO"&gimme2digits(zfamily())
end tell
-------------------------------
"OPENZAP":
if zabrev() = "AIDE" then exit
if voidP(gL_Zap) then
show_zapette()
else
case(gL_Zap[2]) of
0,-1:
show_zapette()
1:
gL_Zap[2]= -1
gL_Zap[1].close()
end case
end if
"TOUTEDIT","CDULIVE","CKOILTRUC","ZOOMZOOM","CROCPHILO","THETEST",\
"TCHATCHE","BIDULE", "MOBICLUB":
if gL_mobidata[1][3].getPos(menuMsg) = 0 then -- si la rubrique n'est pas dΘsactivΘe
goOtherRub(menuMsg, 0)
end if
otherwise:
stopEvent
end case
menuMsg = EMPTY
end
--------------------------
on touchesOn
gL_Zap[18]=1-- activation des raccourcis clavier
end
--------------------------------------------
on touchesOff-- dΘsactivation des raccourcis clavier
gL_Zap[18]=-1
end
